/*----- Test podprogramów drukowania tekstów T5, T6 i T7 -----*/
PROGRAM	BLOK	0c7000

	B2 = INITW
	SKS  drukT5
	B7 = 0		;poczet liter w trybie wielkich liter
	B2 = TEKST5	;PRZYKŁADOWY
	SKS  drukT5	;TEKST 5-BITOWY

	B2 = INITW
	SKS  drukT5
	B7 = 0		;poczet liter w trybie wielkich liter
	B2 = TEKST6	;PRZYKŁADOWY
	SKS  drukT6	;TEKST 6-BITOWY

	B2 = INITm
	SKS  drukT5
	B7 = 0		;poczet liter w trybie małych liter
	B2 = TEKST6	;przykŁadowy
	SKS  drukT6	;tekst 6-bitowy

	B2 = INITm
	SKS  drukT5
	B7 = 0		;poczet liter w trybie małych liter
	B2 = TEKST7	;Przykładowy
	SKS  drukT7	;Tekst 7-bitowy

	STOP	..PROGRAM

INITW	DS	T2'/R/N/F/L'	;przełączenie na wielkie litery
INITm	DS	T2'/R/N/F/L/L'	;przełączenie na    małe litery
;
TEKST5	DS	T1'XPRZYKŁADOWY
TEKST 5-BITOWY

X'1
TEKST6	DS	T6'PRZYKŁADOWY
TEKST 6-BITOWY

'
TEKST7	DS	T7'Przykładowy
Tekst 7-bitowy

'



; Dostosowanie podprogramów drukT6 i drukT7
; do sekwencji kodów przejścia do nowej linii
; stosownej dla zainstalowanego typu dalekopisu
; Patrz: UWAGI w podprogramach drukT6.asm.txt i drukT7.asm.txt
; Patrz: 'Eemc ODRA1013 - Program STAŁY.pdf'
; Pozostaw lub usuń średnik przed poniższą instrukcją

;drukTNL EQU	2'/R'	     /* ;jako /N ma być (CR)

	AIF SYSPARM & 0c02000	;1=(LF)  czy  0=(CR,LF)
drukTNL EQU	2'/N'		;jako /N ma być (LF)
	AELSE
drukTNL EQU	2'/R/N'		;jako /N ma być (CR,LF)
	AFI
/**/


W5	WSTAW	5	;podprogram drukT5


W6	WSTAW	6	;podprogram drukT6


W7	WSTAW	7	;podprogram drukT7


	KONIEC
---